home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 18 Board & Card Games / ACQUI2.BIN / A18 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.7 KB  |  60 lines
  1. 20 GOSUB8020
  2. 100 QO$=CHR$(34):POKE53281,11:POKE53280,11:PRINT"[151]"
  3. 200 PRINT"[147]LOAD";QO$;"A2";QO$;",8,1"
  4. 400 PRINT"LOAD";QO$;"A4";QO$;",8,1:REM[155]GULPING ARQUICE[151]"
  5. 450 PRINT"NEW:CLR"
  6. 500 PRINT"LOAD";QO$;"A19";QO$;",8"
  7. 680 FORI=1TO10
  8. 700 POKE630+I,13:NEXT:POKE637,82:POKE638,85:POKE639,78:POKE198,10
  9. 800 GOTO9000
  10. 8020 SA=51456:REM START ADDRESS
  11. 8030 CK=0
  12. 8040 FORM=0TO203:READD
  13. 8050 POKESA+M,D
  14. 8060 CK=CK+D:NEXT
  15. 8070 IFCK<>28129THENPRINT"ERROR IN DATA":END
  16. 8160 DATA160,255,208,2,160,0,132,195
  17. 8170 DATA32,241,183,224,5,176,17,169
  18. 8180 DATA224,202,48,7,24,105,6,176
  19. 8190 DATA7,208,246,168,105,5,144,3
  20. 8200 DATA76,72,178,132,21,173,136,2
  21. 8210 DATA133,175,169,0,133,174,133,20
  22. 8220 DATA32,241,183,138,240,23,173,0
  23. 8230 DATA221,106,106,106,73,255,41,192
  24. 8240 DATA133,196,173,24,208,106,106,41
  25. 8250 DATA60,5,196,133,175,120,165,1
  26. 8260 DATA72,41,253,133,1,162,0,164
  27. 8270 DATA195,240,57,200,177,174,145,20
  28. 8280 DATA200,208,249,230,21,230,175,232
  29. 8290 DATA224,4,144,240,169,216,133,175
  30. 8300 DATA177,174,10,10,10,10,133,195
  31. 8310 DATA230,175,177,174,41,15,5,195
  32. 8320 DATA198,175,145,20,200,208,233,232
  33. 8330 DATA224,6,240,58,230,21,230,175
  34. 8340 DATA230,175,208,220,177,20,145,174
  35. 8350 DATA200,208,249,230,21,230,175,232
  36. 8360 DATA224,4,144,240,169,217,133,175
  37. 8370 DATA177,20,145,174,74,74,74,74
  38. 8380 DATA198,175,145,174,230,175,200,208
  39. 8390 DATA239,232,224,6,240,8,230,21
  40. 8400 DATA230,175,230,175,208,226,104,133
  41. 8410 DATA1,88,96,0
  42. 8420 FORL=679TO747:READA:POKEL,A:X=X+A:NEXT:IFX<>10702THENPRINT"DATA ERROR":STOP
  43. 8430 DATA162,238,160,2,173,237,2,32,189
  44. 8440 DATA 255,169,1,162,8,168,32,186,255
  45. 8450 DATA169,0,32,213,255,173,238,2,201
  46. 8460 DATA94,240,8,169,94,141,238,2,76,167
  47. 8470 DATA2,162,4,160,0,169,216,133,254
  48. 8480 DATA169,204,133,252,132,253,132,251
  49. 8490 DATA177,251,145,253,136,208,249,230,252,230,254,202,208,242,96
  50. 8510 FF$="MENUSCREEN2":GOSUB8520
  51. 8512 SYS51456,0,0
  52. 8513 PRINT"[147]"
  53. 8514 RETURN
  54. 8520 POKE53265,PEEK(53265)AND239
  55. 8530 FORXX=1TOLEN(FF$):POKE749+XX,ASC(MID$(FF$,XX,1)):NEXT
  56. 8540 POKE749,LEN(FF$):SYS679
  57. 8550 POKE53280,PEEK(2024):POKE53281,PEEK(2025)
  58. 8560 POKE53265,PEEK(53265)OR16:RETURN
  59. 9000 REM
  60.